home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
eulisp
/
you-075a.lha
/
you-075a
/
standard0.em
< prev
next >
Wrap
Text File
|
1992-06-18
|
2KB
|
85 lines
;; Eulisp Module
;; most of levels 1 and 0
;; Standard modules...
;; modified for the compiler!!
;; $Header: /denton_export/denton/You/NewYou/Src/RCS/standard0.em,v 1.8 1992/05/28 12:25:10 pab Exp $$
;; Getting this right is necessary:
;; If your system is generic, uncomment semaphores
;; If you are compiling this module, uncomment the boot line,
;; and comment the initcode line.
(defmodule standard0
(lists
list-operators
extras0
macros0
others
arith
streams
calls
ccc
vectors
tables
formatted-io
strings
(except (defcondition) errors)
symbols
(except (defgeneric defmethod call-next-method generic-lambda) generics)
(except (defclass defstruct) classes)
characters
threads
defs
(except (null) class-names)
;;(only (find-applicable-methods) boot)
initcode
semaphores
)
()
;; hack
(defmethod generic-prin ((x generic-function) stream)
(format stream "#<~a: ~a>"
(class-name (class-of x))
(generic-name x)))
(defmethod generic-write ((x generic-function) stream)
(format stream "#<~a: ~a>"
(class-name (class-of x))
(generic-name x)))
(expose
lists
list-operators
extras0
macros0
others
arith
streams
calls
ccc
vectors
tables
formatted-io
strings
errors
(except (defcondition) errors)
symbols
(except (defgeneric defmethod call-next-method generic-lambda) generics)
(except (defclass defstruct) classes)
classes
characters
threads
defs
(except (null) class-names)
semaphores
initcode
;;(only (find-applicable-methods) boot)
)
(defconstant *compiler-hack* 42)
)